/ Compute! Gazette 1994 July / 1994-07a.d64 / prog page

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 25 50 52 4f 47 52 41 | 4d 4d 45 52 27 53 20 50 |.%PROGRA|MMER'S P|
|00000010| 41 47 45 3a 20 4d 01 0b | 05 20 52 0f 0f 0d 20 06 |AGE: M..|. R... .|
|00000020| 0f 12 20 44 01 14 01 1f | 1f 42 19 20 44 01 16 09 |.. D....|.B. D...|
|00000030| 04 20 50 01 0e 0b 08 15 | 12 13 14 1f 1f 1f 4e 0f |. P.....|......N.|
|00000040| 20 0d 01 14 14 05 12 20 | 17 08 01 14 20 10 12 0f | ...... |.... ...|
|00000050| 07 12 01 0d 20 19 0f 15 | 27 12 05 20 15 13 09 0e |.... ...|'.. ....|
|00000060| 07 20 0f 12 20 17 12 09 | 14 09 0e 07 2c 20 04 01 |. .. ...|...., ..|
|00000070| 14 01 20 09 13 20 17 08 | 01 14 20 0d 01 0b 05 13 |.. .. ..|.. .....|
|00000080| 20 09 14 20 14 09 03 0b | 2e 20 41 0e 04 20 06 09 | .. ....|. A.. ..|
|00000090| 0e 04 09 0e 07 20 10 0c | 01 03 05 13 20 14 0f 20 |..... ..|.... .. |
|000000a0| 13 14 0f 12 05 20 14 08 | 01 14 20 04 01 14 01 20 |..... ..|.. .... |
|000000b0| 09 13 20 01 20 0e 05 16 | 05 12 2d 05 0e 04 09 0e |.. . ...|..-.....|
|000000c0| 07 20 03 08 0f 12 05 20 | 06 0f 12 20 01 20 10 12 |. ..... |... . ..|
|000000d0| 0f 07 12 01 0d 0d 05 12 | 2e 20 54 08 09 13 20 0d |........|. T... .|
|000000e0| 0f 0e 14 08 20 17 05 27 | 12 05 20 07 0f 09 0e 07 |.... ..'|.. .....|
|000000f0| 20 14 0f 20 0c 0f 0f 0b | 20 01 14 20 13 0f 0d 05 | .. ....| .. ....|
|00000100| 20 14 12 09 05 04 2d 01 | 0e 04 2d 14 12 15 05 20 | .....-.|..-.... |
|00000110| 14 09 10 13 20 06 0f 12 | 20 08 01 0e 04 0c 09 0e |.... ...| .......|
|00000120| 07 20 04 01 14 01 2c 20 | 01 0e 04 20 17 05 27 0c |. ...., |... ..'.|
|00000130| 0c 20 01 0c 13 0f 20 05 | 18 01 0d 09 0e 05 20 13 |. .... .|...... .|
|00000140| 0f 0d 05 20 0e 0f 16 05 | 0c 20 17 01 19 13 20 14 |... ....|. .... .|
|00000150| 0f 20 13 14 01 13 08 20 | 09 0e 06 0f 2e 1f 1f 54 |. ..... |.......T|
|00000160| 48 45 20 55 42 49 51 55 | 49 54 4f 55 53 20 44 41 |HE UBIQU|ITOUS DA|
|00000170| 54 41 20 1f 54 08 05 20 | 0d 0f 13 14 20 03 0f 0d |TA .T.. |.... ...|
|00000180| 0d 0f 0e 20 17 01 19 20 | 0f 06 20 08 01 0e 04 0c |... ... |.. .....|
|00000190| 09 0e 07 20 04 01 14 01 | 20 09 13 20 17 09 14 08 |... ....| .. ....|
|000001a0| 20 42 41 53 49 43 27 13 | 20 44 41 54 41 20 13 14 | BASIC'.| DATA ..|
|000001b0| 01 14 05 0d 05 0e 14 2e | 20 49 14 27 13 20 13 09 |........| I.'. ..|
|000001c0| 0d 10 0c 05 20 14 0f 20 | 15 13 05 2c 20 05 06 06 |.... .. |..., ...|
|000001d0| 05 03 14 09 16 05 2c 20 | 01 0e 04 20 09 14 27 13 |......, |... ..'.|
|000001e0| 20 06 0f 15 0e 04 20 09 | 0e 20 01 0c 0c 20 16 05 | ..... .|. ... ..|
|000001f0| 12 13 09 0f 0e 13 20 0f | 06 20 42 41 53 49 43 2e |...... .|. BASIC.|
|00000200| 20 54 08 05 20 06 0f 0c | 0c 0f 17 09 0e 07 20 10 | T.. ...|...... .|
|00000210| 12 0f 07 12 01 0d 20 0c | 05 14 13 20 19 0f 15 20 |...... .|... ... |
|00000220| 14 01 0b 05 20 01 20 02 | 0c 0f 03 0b 20 0f 06 20 |.... . .|.... .. |
|00000230| 0d 05 0d 0f 12 19 20 01 | 0e 04 20 03 0f 0e 16 05 |...... .|.. .....|
|00000240| 12 14 20 09 14 20 09 0e | 14 0f 20 44 41 54 41 20 |.. .. ..|.. DATA |
|00000250| 13 14 01 14 05 0d 05 0e | 14 13 2e 20 45 0e 14 05 |........|... E...|
|00000260| 12 20 14 08 05 20 0c 0f | 03 01 14 09 0f 0e 20 0f |. ... ..|...... .|
|00000270| 06 20 14 08 05 20 06 09 | 12 13 14 20 01 0e 04 20 |. ... ..|... ... |
|00000280| 0c 01 13 14 20 02 19 14 | 05 20 14 0f 20 03 0f 10 |.... ...|. .. ...|
|00000290| 19 2c 20 01 0e 04 20 13 | 15 10 10 0c 19 20 01 20 |., ... .|..... . |
|000002a0| 0c 09 0e 05 20 0e 15 0d | 02 05 12 20 06 12 0f 0d |.... ...|... ....|
|000002b0| 20 17 08 09 03 08 20 14 | 0f 20 13 14 01 12 14 20 | ..... .|. ..... |
|000002c0| 14 08 05 20 04 01 14 01 | 20 0c 09 0e 05 13 2e 1f |... ....| .......|
|000002d0| 1f 31 20 52 45 4d 20 20 | 44 41 54 41 20 43 4f 4e |.1 REM  |DATA CON|
|000002e0| 56 45 52 54 4f 52 1f 32 | 20 49 4e 50 55 54 22 4d |VERTOR.2| INPUT"M|
|000002f0| 45 4d 20 53 54 41 52 54 | 2c 20 45 4e 44 2c 20 26 |EM START|, END, &|
|00000300| 20 31 53 54 20 4c 49 4e | 45 20 23 22 3b 41 2c 5a | 1ST LIN|E #";A,Z|
|00000310| 2c 4c 3a 58 24 3d 53 54 | 52 24 28 41 29 2b 22 2c |,L:X$=ST|R$(A)+",|
|00000320| 22 2b 53 54 52 24 28 5a | 29 3a 47 4f 54 4f 36 1f |"+STR$(Z|):GOTO6.|
|00000330| 33 20 49 46 41 3e 5a 54 | 48 45 4e 45 4e 44 1f 34 |3 IFA>ZT|HENEND.4|
|00000340| 20 5a 24 3d 53 54 52 24 | 28 50 45 45 4b 28 41 29 | Z$=STR$|(PEEK(A)|
|00000350| 29 3a 20 58 24 3d 58 24 | 2b 52 49 47 48 54 24 20 |): X$=X$|+RIGHT$ |
|00000360| 28 5a 24 2c 4c 45 4e 28 | 5a 24 29 2d 31 29 3a 20 |(Z$,LEN(|Z$)-1): |
|00000370| 41 3d 41 2b 31 1f 35 20 | 49 46 41 3c 3d 5a 41 4e |A=A+1.5 |IFA<=ZAN|
|00000380| 44 4c 45 4e 28 58 24 29 | 3c 36 35 54 48 45 4e 58 |DLEN(X$)|<65THENX|
|00000390| 24 3d 58 24 2b 22 2c 22 | 3a 20 47 4f 54 4f 33 1f |$=X$+","|: GOTO3.|
|000003a0| 36 20 50 52 49 4e 54 22 | 1b 43 4c 52 1d 1b 44 4f |6 PRINT"|.CLR..DO|
|000003b0| 57 4e 1d 1b 44 4f 57 4e | 1d 22 4c 22 44 20 1b 53 |WN..DOWN|."L"D .S|
|000003c0| 48 49 46 54 2d 41 1d 22 | 58 24 3a 50 52 49 4e 54 |HIFT-A."|X$:PRINT|
|000003d0| 22 41 3d 22 41 22 3a 5a | 3d 22 5a 22 3a 4c 3d 22 |"A="A":Z|="Z":L="|
|000003e0| 4c 2b 31 30 22 3a 47 1b | 53 48 49 46 54 2d 4f 1d |L+10":G.|SHIFT-O.|
|000003f0| 20 33 3a 20 1b 48 4f 4d | 45 1d 22 3b 3a 20 50 4f | 3: .HOM|E.";: PO|
|00000400| 4b 45 36 33 31 2c 31 33 | 3a 20 50 4f 4b 45 36 33 |KE631,13|: POKE63|
|00000410| 32 2c 31 33 1f 37 20 50 | 4f 4b 45 31 39 38 2c 32 |2,13.7 P|OKE198,2|
|00000420| 3a 45 4e 44 1f 38 20 50 | 52 49 4e 54 22 1b 43 4c |:END.8 P|RINT".CL|
|00000430| 52 1d 1b 44 4f 57 4e 1d | 1b 44 4f 57 4e 1d 22 58 |R..DOWN.|.DOWN."X|
|00000440| 3a 20 50 52 49 4e 54 20 | 22 58 3d 22 58 2b 31 22 |: PRINT |"X="X+1"|
|00000450| 3a 20 47 1b 53 48 49 46 | 54 2d 4f 1d 20 38 3a 1b |: G.SHIF|T-O. 8:.|
|00000460| 48 4f 4d 45 1d 22 3b 3a | 20 50 4f 4b 45 36 33 31 |HOME.";:| POKE631|
|00000470| 2c 31 33 3a 50 4f 4b 45 | 36 33 32 2c 31 33 3a 20 |,13:POKE|632,13: |
|00000480| 50 4f 4b 45 31 39 38 2c | 32 3a 45 4e 44 1f 39 20 |POKE198,|2:END.9 |
|00000490| 52 45 41 44 58 2c 59 3a | 46 4f 52 49 3d 58 54 4f |READX,Y:|FORI=XTO|
|000004a0| 59 3a 52 45 41 44 58 3a | 50 4f 4b 45 49 2c 58 3a |Y:READX:|POKEI,X:|
|000004b0| 4e 45 58 54 1f 1f 4c 09 | 0e 05 20 38 20 10 12 0f |NEXT..L.|.. 8 ...|
|000004c0| 16 09 04 05 13 20 01 20 | 11 15 09 03 0b 20 17 01 |..... . |..... ..|
|000004d0| 19 20 14 0f 20 04 05 0c | 05 14 05 20 14 08 05 13 |. .. ...|... ....|
|000004e0| 05 20 0c 09 0e 05 13 2e | 20 4a 15 13 14 20 14 19 |. ......| J... ..|
|000004f0| 10 05 20 52 55 4e 20 38 | 2e 20 4c 09 0e 05 20 39 |.. RUN 8|. L... 9|
|00000500| 20 12 05 0d 01 09 0e 13 | 20 02 05 08 09 0e 04 20 | .......| ...... |
|00000510| 01 13 20 14 08 05 20 06 | 09 0e 09 13 08 05 04 20 |.. ... .|....... |
|00000520| 03 0f 04 05 20 06 0f 12 | 20 15 13 05 20 17 09 14 |.... ...| ... ...|
|00000530| 08 20 19 0f 15 12 20 44 | 41 54 41 20 13 14 01 14 |. .... D|ATA ....|
|00000540| 05 0d 05 0e 14 13 2e 20 | 59 0f 15 20 03 01 0e 20 |....... |Y.. ... |
|00000550| 13 09 0d 10 0c 19 20 12 | 05 0e 15 0d 02 05 12 20 |...... .|....... |
|00000560| 14 08 05 13 05 20 0c 09 | 0e 05 13 20 01 0e 04 20 |..... ..|... ... |
|00000570| 15 13 05 20 14 08 05 0d | 20 09 0e 20 19 0f 15 20 |... ....| .. ... |
|00000580| 0f 17 0e 20 10 12 0f 07 | 12 01 0d 2e 20 1f 1f 52 |... ....|.... ..R|
|00000590| 45 41 44 45 52 20 54 49 | 50 1f 4b 09 12 0b 20 46 |EADER TI|P.K... F|
|000005a0| 0f 0e 14 05 0e 0f 14 2c | 20 0f 06 20 4c 01 06 01 |.......,| .. L...|
|000005b0| 19 05 14 14 05 2c 20 4c | 0f 15 09 13 09 01 0e 01 |....., L|........|
|000005c0| 2c 20 13 05 0e 14 20 09 | 0e 20 01 20 14 09 10 20 |, .... .|. . ... |
|000005d0| 14 08 01 14 20 03 01 0e | 20 08 05 0c 10 20 19 0f |.... ...| .... ..|
|000005e0| 15 20 17 08 05 0e 20 17 | 0f 12 0b 09 0e 07 20 17 |. .... .|...... .|
|000005f0| 09 14 08 20 44 41 54 41 | 20 0c 09 0e 05 13 2e 20 |... DATA| ...... |
|00000600| 57 08 05 0e 20 01 0e 20 | 05 12 12 0f 12 20 0f 03 |W... .. |..... ..|
|00000610| 03 15 12 13 20 01 13 20 | 19 0f 15 12 20 10 12 0f |.... .. |.... ...|
|00000620| 07 12 01 0d 20 09 13 20 | 12 05 01 04 09 0e 07 20 |.... .. |....... |
|00000630| 44 41 54 41 20 13 14 01 | 14 05 0d 05 0e 14 13 2c |DATA ...|.......,|
|00000640| 20 19 0f 15 20 0f 06 14 | 05 0e 20 0e 05 05 04 20 | ... ...|.. .... |
|00000650| 14 0f 20 0b 0e 0f 17 20 | 17 08 01 14 20 09 14 05 |.. .... |.... ...|
|00000660| 0d 20 0f 06 20 04 01 14 | 01 20 04 09 04 20 14 08 |. .. ...|. ... ..|
|00000670| 05 20 05 16 09 0c 20 04 | 05 05 04 2e 20 54 0f 20 |. .... .|.... T. |
|00000680| 10 12 09 0e 14 20 14 08 | 05 20 03 15 12 12 05 0e |..... ..|. ......|
|00000690| 14 20 44 41 54 41 20 0c | 09 0e 05 20 0e 15 0d 02 |. DATA .|... ....|
|000006a0| 05 12 2c 20 05 0e 14 05 | 12 20 14 08 05 20 06 0f |.., ....|. ... ..|
|000006b0| 0c 0c 0f 17 09 0e 07 20 | 0c 09 0e 05 20 09 0e 20 |....... |.... .. |
|000006c0| 09 0d 0d 05 04 09 01 14 | 05 20 0d 0f 04 05 2e 1f |........|. ......|
|000006d0| 1f 50 52 49 4e 54 20 50 | 45 45 4b 28 36 33 29 2b |.PRINT P|EEK(63)+|
|000006e0| 32 35 36 2a 50 45 45 4b | 28 36 34 29 1f 1f 54 55 |256*PEEK|(64)..TU|
|000006f0| 43 4b 49 4e 47 20 49 54 | 20 42 45 48 49 4e 44 1f |CKING IT| BEHIND.|
|00000700| 44 41 54 41 20 13 14 01 | 14 05 0d 05 0e 14 13 20 |DATA ...|....... |
|00000710| 0f 06 06 05 12 20 10 12 | 0f 07 12 01 0d 0d 05 12 |..... ..|........|
|00000720| 13 20 11 15 09 14 05 20 | 01 20 06 05 17 20 01 04 |. ..... |. ... ..|
|00000730| 16 01 0e 14 01 07 05 13 | 2c 20 02 15 14 20 14 08 |........|, ... ..|
|00000740| 05 19 20 01 0c 13 0f 20 | 08 01 16 05 20 13 0f 0d |.. .... |.... ...|
|00000750| 05 20 13 05 12 09 0f 15 | 13 20 04 09 13 01 04 16 |. ......|. ......|
|00000760| 01 0e 14 01 07 05 13 2e | 20 54 08 09 13 20 04 0f |........| T... ..|
|00000770| 17 0e 13 09 04 05 20 09 | 13 20 05 13 10 05 03 09 |...... .|. ......|
|00000780| 01 0c 0c 19 20 14 12 15 | 05 20 09 06 20 19 0f 15 |.... ...|. .. ...|
|00000790| 27 12 05 20 15 13 09 0e | 07 20 44 41 54 41 20 13 |'.. ....|. DATA .|
|000007a0| 14 01 14 05 0d 05 0e 14 | 13 20 14 0f 20 13 14 0f |........|. .. ...|
|000007b0| 12 05 20 02 19 14 05 20 | 16 01 0c 15 05 13 2e 20 |.. .... |....... |
|000007c0| 54 08 05 19 27 12 05 20 | 13 0c 0f 17 20 14 0f 20 |T...'.. |.... .. |
|000007d0| 12 05 01 04 20 01 0e 04 | 20 14 01 0b 05 20 15 10 |.... ...| .... ..|
|000007e0| 20 01 20 0c 0f 14 20 0f | 06 20 12 0f 0f 0d 20 28 | . ... .|. .... (|
|000007f0| 0f 0e 20 14 08 05 20 01 | 16 05 12 01 07 05 2c 20 |.. ... .|......, |
|00000800| 0d 0f 12 05 20 14 08 01 | 0e 20 33 2e 35 20 02 19 |.... ...|. 3.5 ..|
|00000810| 14 05 13 20 06 0f 12 20 | 05 01 03 08 20 02 19 14 |... ... |.... ...|
|00000820| 05 20 16 01 0c 15 05 20 | 02 05 09 0e 07 20 10 0f |. ..... |..... ..|
|00000830| 0b 05 04 29 2e 20 45 16 | 05 0e 20 06 0f 12 20 13 |...). E.|.. ... .|
|00000840| 14 12 09 0e 07 20 04 01 | 14 01 2c 20 14 08 05 20 |..... ..|.., ... |
|00000850| 09 0e 06 0f 12 0d 01 14 | 09 0f 0e 20 14 01 0b 05 |........|... ....|
|00000860| 13 20 14 17 09 03 05 20 | 01 13 20 0d 15 03 08 20 |. ..... |.. .... |
|00000870| 12 0f 0f 0d 20 01 13 20 | 09 14 20 13 08 0f 15 0c |.... .. |.. .....|
|00000880| 04 2e 20 54 08 05 20 13 | 14 12 09 0e 07 20 09 13 |.. T.. .|..... ..|
|00000890| 20 13 14 0f 12 05 04 20 | 06 09 12 13 14 20 09 0e | ...... |..... ..|
|000008a0| 20 14 08 05 20 44 41 54 | 41 20 0c 09 0e 05 20 01 | ... DAT|A .... .|
|000008b0| 0e 04 20 14 08 05 0e 20 | 01 07 01 09 0e 20 01 14 |.. .... |..... ..|
|000008c0| 20 09 14 13 20 04 05 13 | 14 09 0e 01 14 09 0f 0e | ... ...|........|
|000008d0| 2e 20 41 0c 0c 20 14 08 | 09 13 20 01 04 04 13 20 |. A.. ..|.. .... |
|000008e0| 15 10 2e 1f 1f 4d 01 03 | 08 09 0e 05 20 0c 01 0e |.....M..|.... ...|
|000008f0| 07 15 01 07 05 20 03 01 | 0e 20 02 05 20 14 08 05 |..... ..|. .. ...|
|00000900| 20 01 0e 13 17 05 12 20 | 14 0f 20 14 08 09 13 20 | ...... |.. .... |
|00000910| 10 12 0f 02 0c 05 0d 2e | 20 54 08 05 20 0e 05 18 |........| T.. ...|
|00000920| 14 20 10 12 0f 07 12 01 | 0d 20 14 01 0b 05 13 20 |. ......|. ..... |
|00000930| 04 01 14 01 20 02 19 14 | 05 13 20 06 12 0f 0d 20 |.... ...|.. .... |
|00000940| 0d 05 0d 0f 12 19 20 01 | 0e 04 20 01 14 14 01 03 |...... .|.. .....|
|00000950| 08 05 13 20 14 08 05 0d | 20 14 0f 20 14 08 05 20 |... ....| .. ... |
|00000960| 10 12 0f 07 12 01 0d 2e | 20 49 14 20 01 0c 13 0f |........| I. ....|
|00000970| 20 10 12 0f 16 09 04 05 | 13 20 01 20 0d 01 03 08 | .......|. . ....|
|00000980| 09 0e 05 20 0c 01 0e 07 | 15 01 07 05 20 03 0f 10 |... ....|.... ...|
|00000990| 19 20 12 0f 15 14 09 0e | 05 2e 1f 1f 30 20 52 45 |. ......|....0 RE|
|000009a0| 4d 20 20 43 4f 50 59 20 | 44 41 54 41 20 42 45 48 |M  COPY |DATA BEH|
|000009b0| 49 4e 44 20 50 52 4f 47 | 52 41 4d 20 1f 31 20 49 |IND PROG|RAM .1 I|
|000009c0| 4e 50 55 54 22 53 54 41 | 52 54 2c 20 45 4e 44 20 |NPUT"STA|RT, END |
|000009d0| 41 44 44 52 2e 22 3b 53 | 2c 45 3a 20 47 4f 53 55 |ADDR.";S|,E: GOSU|
|000009e0| 42 36 33 39 39 39 3a 42 | 3d 58 3a 58 3d 58 2b 34 |B63999:B|=X:X=X+4|
|000009f0| 36 2b 45 2d 53 3a 59 3d | 49 4e 54 28 58 2f 32 35 |6+E-S:Y=|INT(X/25|
|00000a00| 36 29 3a 5a 3d 58 2d 32 | 35 36 2a 59 1f 32 20 50 |6):Z=X-2|56*Y.2 P|
|00000a10| 52 49 4e 54 22 1b 43 4c | 52 1d 1b 44 4f 57 4e 1d |RINT".CL|R..DOWN.|
|00000a20| 1b 44 4f 57 4e 1d 1b 44 | 4f 57 4e 1d 50 20 1b 53 |.DOWN..D|OWN.P .S|
|00000a30| 48 49 46 54 2d 4f 1d 20 | 34 35 2c 22 5a 22 3a 50 |HIFT-O. |45,"Z":P|
|00000a40| 1b 53 48 49 46 54 2d 4f | 1d 20 34 36 2c 22 59 22 |.SHIFT-O|. 46,"Y"|
|00000a50| 3a 43 1b 53 48 49 46 54 | 2d 4c 1d 3a 53 3d 22 53 |:C.SHIFT|-L.:S="S|
|00000a60| 3a 50 52 49 4e 54 22 1b | 44 4f 57 4e 1d 1b 44 4f |:PRINT".|DOWN..DO|
|00000a70| 57 4e 1d 45 3d 22 45 22 | 3a 42 3d 22 42 22 3a 47 |WN.E="E"|:B="B":G|
|00000a80| 1b 53 48 49 46 54 2d 4f | 1d 20 34 1b 48 0f 4d 45 |.SHIFT-O|. 4.H.ME|
|00000a90| 1d 22 1f 33 20 50 4f 4b | 45 31 39 38 2c 32 3a 50 |.".3 POK|E198,2:P|
|00000aa0| 4f 4b 45 36 33 31 2c 31 | 33 3a 50 4f 4b 45 36 33 |OKE631,1|3:POKE63|
|00000ab0| 32 2c 31 33 3a 45 4e 44 | 1f 34 20 46 4f 52 49 3d |2,13:END|.4 FORI=|
|00000ac0| 42 54 4f 42 2b 34 32 3a | 52 45 41 44 58 3a 50 4f |BTOB+42:|READX:PO|
|00000ad0| 4b 45 49 2c 58 3a 4e 45 | 58 54 3a 20 58 3d 49 4e |KEI,X:NE|XT: X=IN|
|00000ae0| 54 28 28 45 2b 31 29 2f | 32 35 36 29 3a 59 3d 45 |T((E+1)/|256):Y=E|
|00000af0| 2b 31 2d 58 2a 32 35 36 | 3a 50 4f 4b 45 49 2c 59 |+1-X*256|:POKEI,Y|
|00000b00| 1f 35 20 50 4f 4b 45 49 | 2b 31 2c 58 3a 49 3d 49 |.5 POKEI|+1,X:I=I|
|00000b10| 2b 32 3a 46 4f 52 4a 3d | 53 54 4f 45 3a 50 4f 4b |+2:FORJ=|STOE:POK|
|00000b20| 45 49 2c 50 45 45 4b 20 | 28 4a 29 3a 49 3d 49 2b |EI,PEEK |(J):I=I+|
|00000b30| 31 3a 4e 45 58 54 3a 45 | 4e 44 3a 44 41 54 41 31 |1:NEXT:E|ND:DATA1|
|00000b40| 36 35 2c 32 30 2c 32 34 | 2c 31 30 35 2c 34 33 1f |65,20,24|,105,43.|
|00000b50| 36 20 44 41 54 41 31 33 | 33 2c 39 35 2c 31 36 39 |6 DATA13|3,95,169|
|00000b60| 2c 30 2c 31 30 31 2c 32 | 31 2c 31 33 33 2c 39 36 |,0,101,2|1,133,96|
|00000b70| 2c 31 36 30 2c 20 30 2c | 31 37 37 2c 39 35 2c 31 |,160, 0,|177,95,1|
|00000b80| 33 33 2c 38 38 2c 32 30 | 30 2c 31 37 37 2c 39 35 |33,88,20|0,177,95|
|00000b90| 2c 31 33 33 2c 38 39 2c | 32 33 30 2c 39 35 1f 37 |,133,89,|230,95.7|
|00000ba0| 20 44 41 54 41 32 33 30 | 2c 39 35 2c 31 34 34 2c | DATA230|,95,144,|
|00000bb0| 32 2c 32 33 30 2c 39 36 | 2c 31 36 35 2c 34 35 2c |2,230,96|,165,45,|
|00000bc0| 31 33 33 2c 20 39 30 2c | 31 36 35 2c 34 36 2c 31 |133, 90,|165,46,1|
|00000bd0| 33 33 2c 39 31 2c 37 36 | 2c 31 39 31 2c 31 36 33 |33,91,76|,191,163|
|00000be0| 1f 36 33 39 39 30 20 47 | 4f 53 55 42 36 33 39 39 |.63990 G|OSUB6399|
|00000bf0| 39 3a 53 59 53 58 3a 50 | 52 49 4e 54 22 46 49 4c |9:SYSX:P|RINT"FIL|
|00000c00| 45 20 43 4f 50 49 45 44 | 22 3a 52 45 54 55 52 4e |E COPIED|":RETURN|
|00000c10| 1f 36 33 39 39 39 20 58 | 3d 50 45 45 4b 28 36 31 |.63999 X|=PEEK(61|
|00000c20| 29 2b 32 35 36 2a 50 45 | 45 4b 28 36 32 29 2b 33 |)+256*PE|EK(62)+3|
|00000c30| 30 3a 52 45 54 55 52 4e | 1f 1f 54 08 05 20 10 0c |0:RETURN|..T.. ..|
|00000c40| 01 03 05 0d 05 0e 14 20 | 0f 06 20 14 08 05 20 04 |....... |.. ... .|
|00000c50| 01 14 01 20 12 05 0c 09 | 05 13 20 0f 0e 20 01 20 |... ....|.. .. . |
|00000c60| 0c 09 14 14 0c 05 20 14 | 12 09 03 0b 20 0f 06 20 |...... .|.... .. |
|00000c70| 14 08 05 20 13 19 13 14 | 05 0d 2e 20 41 20 42 41 |... ....|... A BA|
|00000c80| 53 49 43 20 10 12 0f 07 | 12 01 0d 20 08 01 13 20 |SIC ....|... ... |
|00000c90| 14 17 0f 20 10 0f 09 0e | 14 05 12 13 20 01 13 13 |... ....|.... ...|
|00000ca0| 0f 03 09 01 14 05 04 20 | 17 09 14 08 20 09 14 3a |....... |.... ..:|
|00000cb0| 20 14 08 05 20 13 14 01 | 12 14 2d 0f 06 2d 10 12 | ... ...|..-..-..|
|00000cc0| 0f 07 12 01 0d 20 10 0f | 09 0e 14 05 12 20 01 0e |..... ..|..... ..|
|00000cd0| 04 20 14 08 05 20 05 0e | 04 2d 0f 06 2d 10 12 0f |. ... ..|.-..-...|
|00000ce0| 07 12 01 0d 20 10 0f 09 | 0e 14 05 12 2e 20 45 16 |.... ...|..... E.|
|00000cf0| 05 12 19 14 08 09 0e 07 | 20 02 05 14 17 05 05 0e |........| .......|
|00000d00| 20 14 08 05 13 05 20 14 | 17 0f 20 0c 0f 03 01 14 | ..... .|.. .....|
|00000d10| 09 0f 0e 13 20 09 13 20 | 03 0f 0e 13 09 04 05 12 |.... .. |........|
|00000d20| 05 04 20 10 12 0f 07 12 | 01 0d 2e 20 57 08 01 14 |.. .....|... W...|
|00000d30| 20 17 05 20 04 0f 20 09 | 13 20 0d 0f 16 05 20 14 | .. .. .|. .... .|
|00000d40| 08 05 20 05 0e 04 2d 0f | 06 2d 10 12 0f 07 12 01 |.. ...-.|.-......|
|00000d50| 0d 20 10 0f 09 0e 14 05 | 12 20 15 10 20 08 09 07 |. ......|. .. ...|
|00000d60| 08 05 12 20 09 0e 20 0d | 05 0d 0f 12 19 20 01 0e |... .. .|..... ..|
|00000d70| 04 20 03 12 05 01 14 05 | 20 01 0e 20 01 12 05 01 |. ......| .. ....|
|00000d80| 20 14 08 01 14 20 09 13 | 20 13 14 09 0c 0c 20 03 | .... ..| ..... .|
|00000d90| 0f 0e 13 09 04 05 12 05 | 04 20 10 01 12 14 20 0f |........|. .... .|
|00000da0| 06 20 14 08 05 20 10 12 | 0f 07 12 01 0d 20 02 15 |. ... ..|..... ..|
|00000db0| 14 20 06 0f 0c 0c 0f 17 | 13 20 14 08 05 20 08 09 |. ......|. ... ..|
|00000dc0| 07 08 05 13 14 20 42 41 | 53 49 43 20 0c 09 0e 05 |..... BA|SIC ....|
|00000dd0| 2e 1f 1f 57 08 05 0e 20 | 14 08 05 20 10 12 0f 07 |...W... |... ....|
|00000de0| 12 01 0d 20 09 13 20 12 | 15 0e 2c 20 19 0f 15 27 |... .. .|.., ...'|
|00000df0| 12 05 20 10 12 0f 0d 10 | 14 05 04 20 06 0f 12 20 |.. .....|... ... |
|00000e00| 14 08 05 20 13 14 01 12 | 14 09 0e 07 20 01 0e 04 |... ....|.... ...|
|00000e10| 20 05 0e 04 09 0e 07 20 | 0c 0f 03 01 14 09 0f 0e | ...... |........|
|00000e20| 13 20 0f 06 20 14 08 05 | 20 04 01 14 01 20 09 0e |. .. ...| .... ..|
|00000e30| 20 0d 05 0d 0f 12 19 2e | 20 52 0f 0f 0d 20 09 13 | .......| R... ..|
|00000e40| 20 0d 01 04 05 20 02 05 | 08 09 0e 04 20 14 08 05 | .... ..|.... ...|
|00000e50| 20 10 12 0f 07 12 01 0d | 2c 20 01 0e 04 20 14 08 | .......|, ... ..|
|00000e60| 05 20 04 01 14 01 2c 20 | 01 0c 0f 0e 07 20 17 09 |. ...., |..... ..|
|00000e70| 14 08 20 01 20 03 0f 10 | 19 20 12 0f 15 14 09 0e |.. . ...|. ......|
|00000e80| 05 2c 20 09 13 20 10 0c | 01 03 05 04 20 14 08 05 |., .. ..|.... ...|
|00000e90| 12 05 2e 20 41 0c 0c 20 | 0f 06 20 14 08 05 20 42 |... A.. |.. ... B|
|00000ea0| 41 53 49 43 20 0c 09 0e | 05 13 20 05 18 03 05 10 |ASIC ...|.. .....|
|00000eb0| 14 20 36 33 39 39 39 20 | 03 01 0e 20 14 08 05 0e |. 63999 |... ....|
|00000ec0| 20 02 05 20 04 05 0c 05 | 14 05 04 2e 20 54 08 09 | .. ....|.... T..|
|00000ed0| 13 20 0c 09 0e 05 20 10 | 0f 09 0e 14 13 20 14 0f |. .... .|..... ..|
|00000ee0| 20 14 08 05 20 03 0f 10 | 19 20 12 0f 15 14 09 0e | ... ...|. ......|
|00000ef0| 05 20 01 0e 04 20 13 08 | 0f 15 0c 04 0e 27 14 20 |. ... ..|.....'. |
|00000f00| 02 05 20 05 04 09 14 05 | 04 2e 20 41 13 20 17 05 |.. .....|.. A. ..|
|00000f10| 0c 0c 2c 20 09 14 20 0d | 15 13 14 20 12 05 0d 01 |.., .. .|... ....|
|00000f20| 09 0e 20 14 08 05 20 0c | 01 13 14 20 0c 09 0e 05 |.. ... .|... ....|
|00000f30| 20 09 0e 20 14 08 05 20 | 10 12 0f 07 12 01 0d 2e | .. ... |........|
|00000f40| 20 1f 1f 4c 09 0e 05 20 | 36 33 39 39 30 20 04 0f | ..L... |63990 ..|
|00000f50| 05 13 20 14 08 05 20 03 | 01 0c 0c 09 0e 07 20 0f |.. ... .|...... .|
|00000f60| 06 20 14 08 05 20 0d 01 | 03 08 09 0e 05 20 0c 01 |. ... ..|..... ..|
|00000f70| 0e 07 15 01 07 05 20 01 | 0e 04 20 14 08 05 20 03 |...... .|.. ... .|
|00000f80| 0f 10 19 09 0e 07 20 0f | 06 20 14 08 05 20 06 09 |...... .|. ... ..|
|00000f90| 0c 05 20 14 0f 20 17 08 | 05 12 05 20 09 14 20 13 |.. .. ..|... .. .|
|00000fa0| 08 0f 15 0c 04 20 07 0f | 2e 20 43 08 01 0e 07 05 |..... ..|. C.....|
|00000fb0| 20 14 08 05 20 0c 09 0e | 05 20 0e 15 0d 02 05 12 | ... ...|. ......|
|00000fc0| 2c 20 0f 12 20 0a 15 13 | 14 20 01 04 04 20 47 4f |, .. ...|. ... GO|
|00000fd0| 53 55 42 20 36 33 39 39 | 39 3a 53 59 53 20 58 20 |SUB 6399|9:SYS X |
|00000fe0| 14 0f 20 19 0f 15 12 20 | 0f 17 0e 20 03 0f 04 05 |.. .... |... ....|
|00000ff0| 2e 1f 1f 54 08 09 13 20 | 06 09 0c 05 20 09 13 20 |...T... |.... .. |
|00001000| 13 01 06 05 0c 19 20 10 | 12 0f 14 05 03 14 05 04 |...... .|........|
|00001010| 20 01 13 20 10 01 12 14 | 20 0f 06 20 14 08 05 20 | .. ....| .. ... |
|00001020| 42 41 53 49 43 20 10 12 | 0f 07 12 01 0d 2c 20 17 |BASIC ..|....., .|
|00001030| 09 14 08 20 0f 0e 05 20 | 05 18 03 05 10 14 09 0f |... ... |........|
|00001040| 0e 2e 20 53 0f 0d 05 20 | 10 12 0f 07 12 01 0d 0d |.. S... |........|
|00001050| 09 0e 07 20 15 14 09 0c | 09 14 09 05 13 20 28 13 |... ....|..... (.|
|00001060| 15 03 08 20 01 13 20 4d | 05 14 01 42 41 53 49 43 |... .. M|...BASIC|
|00001070| 29 20 03 01 0e 20 05 12 | 01 13 05 20 14 08 09 13 |) ... ..|... ....|
|00001080| 20 13 05 03 14 09 0f 0e | 20 0f 06 20 0d 05 0d 0f | .......| .. ....|
|00001090| 12 19 20 17 08 05 0e 20 | 12 05 0e 15 0d 02 05 12 |.. .... |........|
|000010a0| 09 0e 07 20 0f 12 20 04 | 05 0c 05 14 09 0e 07 20 |... .. .|....... |
|000010b0| 0c 09 0e 05 13 2e 20 49 | 06 20 19 0f 15 12 20 15 |...... I|. .... .|
|000010c0| 14 09 0c 09 14 19 20 04 | 0f 05 13 20 14 08 01 14 |...... .|... ....|
|000010d0| 2c 20 10 0c 01 0e 20 14 | 0f 20 0d 01 0b 05 20 14 |, .... .|. .... .|
|000010e0| 08 05 20 03 0f 10 19 09 | 0e 07 20 14 08 05 20 0c |.. .....|.. ... .|
|000010f0| 01 13 14 20 14 08 09 0e | 07 20 19 0f 15 20 04 0f |... ....|. ... ..|
|00001100| 20 02 05 06 0f 12 05 20 | 19 0f 15 20 03 0f 0d 10 | ...... |... ....|
|00001110| 0c 05 14 05 20 19 0f 15 | 12 20 10 12 0f 07 12 01 |.... ...|. ......|
|00001120| 0d 2e 1f 1f 4c 49 4b 45 | 20 41 4e 20 49 42 4d 1f |....LIKE| AN IBM.|
|00001130| 41 20 0c 09 14 14 0c 05 | 20 0b 0e 0f 17 0e 20 13 |A ......| ..... .|
|00001140| 10 0f 14 20 14 0f 20 10 | 01 13 13 20 04 01 14 01 |... .. .|... ....|
|00001150| 20 14 0f 20 01 20 10 12 | 0f 07 12 01 0d 20 09 13 | .. . ..|..... ..|
|00001160| 20 17 09 14 08 20 14 08 | 05 20 52 55 4e 20 0f 12 | .... ..|. RUN ..|
|00001170| 20 47 4f 54 4f 20 03 0f | 0d 0d 01 0e 04 20 06 12 | GOTO ..|..... ..|
|00001180| 0f 0d 20 14 08 05 20 13 | 03 12 05 05 0e 2e 20 49 |.. ... .|...... I|
|00001190| 0e 20 14 08 05 20 49 42 | 4d 20 44 4f 53 20 17 0f |. ... IB|M DOS ..|
|000011a0| 12 0c 04 2c 20 09 14 27 | 13 20 02 05 05 0e 20 01 |..., ..'|. .... .|
|000011b0| 20 03 0f 0d 0d 0f 0e 20 | 10 12 01 03 14 09 03 05 | ...... |........|
|000011c0| 20 06 0f 12 20 19 05 01 | 12 13 20 14 0f 20 10 01 | ... ...|.. .. ..|
|000011d0| 13 13 20 10 01 12 01 0d | 05 14 05 12 13 20 14 0f |.. .....|..... ..|
|000011e0| 20 14 08 05 20 10 12 0f | 07 12 01 0d 20 14 08 01 | ... ...|.... ...|
|000011f0| 14 20 17 01 19 2e 20 41 | 0c 14 08 0f 15 07 08 20 |. .... A|....... |
|00001200| 49 27 16 05 20 0e 05 16 | 05 12 20 13 05 05 0e 20 |I'.. ...|.. .... |
|00001210| 09 14 20 04 0f 0e 05 20 | 0f 0e 20 14 08 05 20 43 |.. .... |.. ... C|
|00001220| 0f 0d 0d 0f 04 0f 12 05 | 2c 20 09 14 27 13 20 01 |........|, ..'. .|
|00001230| 03 14 15 01 0c 0c 19 20 | 11 15 09 14 05 20 05 01 |....... |..... ..|
|00001240| 13 19 20 14 0f 20 13 05 | 14 20 15 10 2e 20 48 05 |.. .. ..|. ... H.|
|00001250| 12 05 27 13 20 08 0f 17 | 2e 1f 1f 31 30 20 52 45 |..'. ...|...10 RE|
|00001260| 4d 20 54 48 49 53 20 52 | 45 41 44 53 20 49 4e 20 |M THIS R|EADS IN |
|00001270| 49 4e 50 55 54 20 4c 49 | 4e 45 20 49 4e 54 4f 20 |INPUT LI|NE INTO |
|00001280| 58 24 1f 32 30 20 52 45 | 4d 1f 33 30 20 58 3d 35 |X$.20 RE|M.30 X=5|
|00001290| 31 32 3a 58 24 3d 22 22 | 1f 34 30 20 49 46 50 45 |12:X$=""|.40 IFPE|
|000012a0| 45 4b 28 58 29 54 48 45 | 4e 58 24 3d 58 24 2b 43 |EK(X)THE|NX$=X$+C|
|000012b0| 48 52 24 28 50 45 45 4b | 28 58 29 29 3a 20 58 3d |HR$(PEEK|(X)): X=|
|000012c0| 58 2b 31 3a 20 47 4f 54 | 4f 34 30 1f 35 30 20 50 |X+1: GOT|O40.50 P|
|000012d0| 52 49 4e 54 43 48 52 24 | 28 33 34 29 58 24 43 48 |RINTCHR$|(34)X$CH|
|000012e0| 52 24 28 33 34 29 1f 1f | 57 08 05 0e 20 01 20 0c |R$(34)..|W... . .|
|000012f0| 09 0e 05 20 09 13 20 14 | 19 10 05 04 20 09 0e 20 |... .. .|.... .. |
|00001300| 04 09 12 05 03 14 20 0d | 0f 04 05 20 0f 0e 20 14 |...... .|... .. .|
|00001310| 08 05 20 36 34 20 13 03 | 12 05 05 0e 2c 20 14 08 |.. 64 ..|...., ..|
|00001320| 05 20 09 0e 06 0f 12 0d | 01 14 09 0f 0e 20 09 13 |. ......|..... ..|
|00001330| 20 03 0f 10 09 05 04 20 | 01 0e 04 20 0d 01 0e 09 | ...... |... ....|
|00001340| 10 15 0c 01 14 05 04 20 | 09 0e 20 01 20 02 15 06 |....... |.. . ...|
|00001350| 06 05 12 20 02 05 07 09 | 0e 0e 09 0e 07 20 01 14 |... ....|..... ..|
|00001360| 20 0c 0f 03 01 14 09 0f | 0e 20 35 31 32 2e 20 49 | .......|. 512. I|
|00001370| 06 20 14 08 05 20 0c 09 | 0e 05 20 03 0f 0e 14 01 |. ... ..|.. .....|
|00001380| 09 0e 13 20 01 0e 19 20 | 42 41 53 49 43 20 0b 05 |... ... |BASIC ..|
|00001390| 19 17 0f 12 04 13 2c 20 | 14 08 05 19 20 01 12 05 |......, |.... ...|
|000013a0| 20 03 0f 0d 10 01 03 14 | 05 04 2c 20 0c 05 01 04 | .......|.., ....|
|000013b0| 09 0e 07 20 01 0e 04 20 | 14 12 01 09 0c 09 0e 07 |... ... |........|
|000013c0| 20 13 10 01 03 05 13 20 | 01 12 05 20 14 01 0b 05 | ...... |... ....|
|000013d0| 0e 20 0f 15 14 2c 20 01 | 0e 04 20 01 20 30 20 09 |. ..., .|.. . 0 .|
|000013e0| 13 20 10 0c 01 03 05 04 | 20 01 14 20 14 08 05 20 |. ......| .. ... |
|000013f0| 05 0e 04 20 0f 06 20 14 | 08 05 20 14 05 18 14 2e |... .. .|.. .....|
|00001400| 20 4c 09 0e 05 13 20 33 | 30 20 01 0e 04 20 34 30 | L.... 3|0 ... 40|
|00001410| 20 12 05 01 04 20 14 08 | 05 20 0c 09 0e 05 20 09 | .... ..|. .... .|
|00001420| 0e 14 0f 20 13 14 12 09 | 0e 07 20 58 24 20 15 0e |... ....|.. X$ ..|
|00001430| 14 09 0c 20 14 08 05 20 | 30 20 02 19 14 05 20 09 |... ... |0 .... .|
|00001440| 13 20 05 0e 03 0f 15 0e | 14 05 12 05 04 2e 20 1f |. ......|...... .|
|00001450| 1f 54 0f 20 15 13 05 20 | 09 14 2c 20 01 04 04 20 |.T. ... |.., ... |
|00001460| 01 20 03 0f 0c 0f 0e 20 | 01 06 14 05 12 20 19 0f |. ..... |..... ..|
|00001470| 15 20 14 19 10 05 20 52 | 55 4e 20 14 0f 20 01 16 |. .... R|UN .. ..|
|00001480| 0f 09 04 20 14 08 05 20 | 3f 55 4e 44 45 46 27 44 |... ... |?UNDEF'D|
|00001490| 20 53 54 41 54 45 4d 45 | 4e 54 20 05 12 12 0f 12 | STATEME|NT .....|
|000014a0| 2c 20 01 0e 04 20 14 08 | 05 0e 20 14 19 10 05 20 |, ... ..|.. .... |
|000014b0| 19 0f 15 12 20 14 05 18 | 14 2e 20 1f 1f 53 09 0e |.... ...|.. ..S..|
|000014c0| 03 05 20 14 12 01 09 0c | 09 0e 07 20 13 10 01 03 |.. .....|... ....|
|000014d0| 05 13 20 01 12 05 20 12 | 05 0d 0f 16 05 04 2c 20 |.. ... .|......, |
|000014e0| 09 14 27 13 20 05 01 13 | 19 20 14 0f 20 12 05 01 |..'. ...|. .. ...|
|000014f0| 04 20 09 0e 20 0f 0e 05 | 2d 03 08 01 12 01 03 14 |. .. ...|-.......|
|00001500| 05 12 20 16 01 0c 15 05 | 13 2e 20 46 0f 12 20 05 |.. .....|.. F.. .|
|00001510| 18 01 0d 10 0c 05 2c 20 | 52 55 4e 3a 44 20 03 0f |......, |RUN:D ..|
|00001520| 15 0c 04 20 02 05 20 12 | 05 01 04 20 02 19 20 05 |... .. .|... .. .|
|00001530| 18 05 03 15 14 09 0e 07 | 20 14 08 05 20 10 12 05 |........| ... ...|
|00001540| 16 09 0f 15 13 20 12 0f | 15 14 09 0e 05 2c 20 06 |..... ..|....., .|
|00001550| 0f 0c 0c 0f 17 05 04 20 | 02 19 20 59 24 3d 52 49 |....... |.. Y$=RI|
|00001560| 47 48 54 24 28 58 24 2c | 31 29 2e 1f 1f 1f 53 54 |GHT$(X$,|1)....ST|
|00001570| 52 49 4e 47 49 4e 47 20 | 41 4c 4f 4e 47 20 49 4e |RINGING |ALONG IN|
|00001580| 46 4f 1f 45 16 05 12 20 | 14 08 0f 15 07 08 14 20 |FO.E... |....... |
|00001590| 0f 06 20 10 15 14 14 09 | 0e 07 20 0d 01 03 08 09 |.. .....|.. .....|
|000015a0| 0e 05 20 0c 01 0e 07 15 | 01 07 05 20 04 09 12 05 |.. .....|... ....|
|000015b0| 03 14 0c 19 20 09 0e 20 | 19 0f 15 12 20 10 12 0f |.... .. |.... ...|
|000015c0| 07 12 01 0d 3f 20 48 05 | 12 05 27 13 20 01 0e 20 |....? H.|..'. .. |
|000015d0| 05 18 01 0d 10 0c 05 2e | 20 4e 0f 14 05 20 0c 09 |........| N... ..|
|000015e0| 0e 05 20 33 30 2c 20 14 | 08 05 20 0d 01 03 08 09 |.. 30, .|.. .....|
|000015f0| 0e 05 20 0c 01 0e 07 15 | 01 07 05 20 03 0f 04 05 |.. .....|... ....|
|00001600| 2e 1f 1f 31 30 20 52 45 | 4d 20 43 41 4c 43 55 4c |...10 RE|M CALCUL|
|00001610| 41 54 45 44 20 52 45 53 | 54 4f 52 45 20 4c 49 4e |ATED RES|TORE LIN|
|00001620| 45 20 20 20 2d 20 44 4f | 4e 27 54 20 45 44 49 54 |E   - DO|N'T EDIT|
|00001630| 20 4c 49 4e 45 20 33 30 | 20 21 1f 32 30 20 3a 1f | LINE 30| !.20 :.|
|00001640| 33 30 20 58 24 3d 22 20 | 1b 43 54 52 4c 2d 41 1d |30 X$=" |.CTRL-A.|
|00001650| 1b 43 4d 44 2d 1c 1d 20 | 1b 06 34 1d 1b 43 4d 44 |.CMD-.. |..4..CMD|
|00001660| 2d 5a 1d 1b 53 48 49 46 | 54 2d 53 50 41 43 45 1d |-Z..SHIF|T-SPACE.|
|00001670| 0c 1b 06 38 1d 1b 43 54 | 52 4c 2d 41 1d 1b 43 54 |...8..CT|RL-A..CT|
|00001680| 52 4c 2d 41 1d 1b 53 48 | 49 46 54 2d 53 50 41 43 |RL-A..SH|IFT-SPAC|
|00001690| 45 1d 1b 43 4d 44 2d 59 | 1d 1b 06 38 1d 1b 43 54 |E..CMD-Y|...8..CT|
|000016a0| 52 4c 2d 43 1d 1b 43 54 | 52 4c 2d 41 1d 1b 53 48 |RL-C..CT|RL-A..SH|
|000016b0| 49 46 54 2d 1c 1d 1b 43 | 4d 44 2d 59 1d 1b 43 54 |IFT-...C|MD-Y..CT|
|000016c0| 52 4c 2d 49 1d 00 1b 43 | 4d 44 2d 1c 1d 1b 06 38 |RL-I...C|MD-....8|
|000016d0| 1d 1b 43 54 52 4c 2d 42 | 1d 1b 43 54 52 4c 2d 41 |..CTRL-B|..CTRL-A|
|000016e0| 1d 20 1b 43 54 52 4c 2d | 41 1d 1b 43 54 52 4c 2d |. .CTRL-|A..CTRL-|
|000016f0| 41 1d 20 1b 48 4f 4d 45 | 1d 1b 43 4d 44 2d 2b 1d |A. .HOME|..CMD-+.|
|00001700| 1b 43 4d 44 2d 49 1d 1b | 43 54 52 4c 2d 41 1d 1b |.CMD-I..|CTRL-A..|
|00001710| 43 4d 44 2d 4a 1d 1b 4c | 45 46 54 20 41 52 52 4f |CMD-J..L|EFT ARRO|
|00001720| 57 1d 1b 43 4d 44 2d 1c | 1d 1b 43 4d 44 2d 2b 1d |W..CMD-.|..CMD-+.|
|00001730| 1b 4c 45 46 54 20 41 52 | 52 4f 57 1d 20 1b 53 48 |.LEFT AR|ROW. .SH|
|00001740| 49 46 54 2d 50 1d 1b 43 | 54 52 4c 2d 41 1d 1b 46 |IFT-P..C|TRL-A..F|
|00001750| 37 1d 1b 53 48 49 46 54 | 2d 4a 1d 1b 06 34 1d 38 |7..SHIFT|-J...4.8|
|00001760| 4c 24 1b 43 4d 44 2d 1c | 1d 22 1f 34 30 20 3a 1f |L$.CMD-.|.".40 :.|
|00001770| 35 30 20 53 59 53 34 35 | 31 39 35 58 24 3a 20 58 |50 SYS45|195X$: X|
|00001780| 3d 50 45 45 4b 28 37 38 | 30 29 2b 32 35 36 2a 50 |=PEEK(78|0)+256*P|
|00001790| 45 45 4b 20 28 37 38 31 | 29 3a 20 56 47 3d 50 45 |EEK (781|): VG=PE|
|000017a0| 45 4b 28 58 2b 31 29 2b | 32 35 36 2a 50 45 45 4b |EK(X+1)+|256*PEEK|
|000017b0| 28 58 2b 32 29 1f 31 30 | 30 20 52 45 4d 20 44 45 |(X+2).10|0 REM DE|
|000017c0| 4d 4f 1f 31 31 30 20 46 | 4f 52 49 3d 31 54 4f 31 |MO.110 F|ORI=1TO1|
|000017d0| 30 1f 31 32 30 20 58 3d | 49 4e 54 28 52 4e 44 28 |0.120 X=|INT(RND(|
|000017e0| 30 29 2a 31 30 29 2b 35 | 32 30 3a 20 50 52 49 4e |0)*10)+5|20: PRIN|
|000017f0| 54 3a 20 50 52 49 4e 54 | 22 52 45 41 44 49 4e 47 |T: PRINT|"READING|
|00001800| 20 46 52 4f 4d 20 4c 49 | 4e 45 22 58 22 2e 2e 2e | FROM LI|NE"X"...|
|00001810| 22 3a 53 59 53 20 56 47 | 2c 58 1f 31 33 30 20 52 |":SYS VG|,X.130 R|
|00001820| 45 41 44 58 3a 49 46 58 | 3c 39 39 39 54 48 45 4e |EADX:IFX|<999THEN|
|00001830| 50 52 49 4e 54 58 3b 3a | 47 4f 54 4f 31 33 30 1f |PRINTX;:|GOTO130.|
|00001840| 31 34 30 20 46 4f 52 4a | 3d 31 54 4f 38 30 30 3a |140 FORJ|=1TO800:|
|00001850| 4e 45 58 54 3a 4e 45 58 | 54 3a 45 4e 44 1f 35 32 |NEXT:NEX|T:END.52|
|00001860| 30 20 44 41 54 41 20 35 | 32 30 1f 35 32 31 20 44 |0 DATA 5|20.521 D|
|00001870| 41 54 41 20 35 32 31 1f | 35 32 32 20 44 41 54 41 |ATA 521.|522 DATA|
|00001880| 20 35 32 32 1f 35 32 33 | 20 44 41 54 41 20 35 32 | 522.523| DATA 52|
|00001890| 33 1f 35 32 34 20 44 41 | 54 41 20 35 32 34 1f 35 |3.524 DA|TA 524.5|
|000018a0| 32 35 20 44 41 54 41 20 | 35 32 35 1f 35 32 36 20 |25 DATA |525.526 |
|000018b0| 44 41 54 41 20 35 32 36 | 1f 35 32 37 20 44 41 54 |DATA 526|.527 DAT|
|000018c0| 41 20 35 32 37 1f 35 32 | 38 20 44 41 54 41 20 35 |A 527.52|8 DATA 5|
|000018d0| 32 38 1f 35 32 39 20 44 | 41 54 41 20 35 32 39 1f |28.529 D|ATA 529.|
|000018e0| 35 33 30 20 44 41 54 41 | 20 39 39 39 1f 1f 41 0c |530 DATA| 999..A.|
|000018f0| 14 08 0f 15 07 08 20 0c | 09 0e 05 20 33 30 20 14 |...... .|... 30 .|
|00001900| 01 0b 05 13 20 13 0f 0d | 05 20 07 05 14 14 09 0e |.... ...|. ......|
|00001910| 07 20 15 13 05 04 20 14 | 0f 2c 20 09 14 20 09 13 |. .... .|., .. ..|
|00001920| 20 01 20 10 05 12 06 05 | 03 14 0c 19 20 06 15 0e | . .....|.... ...|
|00001930| 03 14 09 0f 0e 01 0c 20 | 0d 01 03 08 09 0e 05 20 |....... |....... |
|00001940| 0c 01 0e 07 15 01 07 05 | 20 12 0f 15 14 09 0e 05 |........| .......|
|00001950| 2e 20 49 14 20 10 05 12 | 06 0f 12 0d 13 20 01 20 |. I. ...|..... . |
|00001960| 03 01 0c 03 15 0c 01 14 | 05 04 20 52 45 53 54 4f |........|.. RESTO|
|00001970| 52 45 2c 20 01 0e 20 01 | 10 10 12 0f 10 12 09 01 |RE, .. .|........|
|00001980| 14 05 20 10 12 0f 07 12 | 01 0d 20 06 0f 12 20 14 |.. .....|.. ... .|
|00001990| 08 09 13 20 0d 0f 0e 14 | 08 27 13 20 03 0f 0c 15 |... ....|.'. ....|
|000019a0| 0d 0e 2e 20 4c 09 0e 05 | 20 35 30 20 0c 0f 0f 0b |... L...| 50 ....|
|000019b0| 13 20 15 10 20 58 24 20 | 01 0e 04 20 12 05 14 15 |. .. X$ |... ....|
|000019c0| 12 0e 13 20 14 08 05 20 | 10 0f 09 0e 14 05 12 20 |... ... |....... |
|000019d0| 14 0f 20 14 08 05 20 13 | 14 12 09 0e 07 20 03 0f |.. ... .|..... ..|
|000019e0| 0e 14 05 0e 14 13 2c 20 | 17 08 09 03 08 20 09 13 |......, |..... ..|
|000019f0| 20 14 08 05 0e 20 10 0c | 01 03 05 04 20 09 0e 20 | .... ..|.... .. |
|00001a00| 56 47 2e 20 55 0e 0c 09 | 0b 05 20 01 20 0e 0f 12 |VG. U...|.. . ...|
|00001a10| 0d 01 0c 20 52 45 53 54 | 4f 52 45 2c 20 14 08 05 |... REST|ORE, ...|
|00001a20| 20 03 0f 0d 0d 01 0e 04 | 20 53 59 53 20 56 47 2c | .......| SYS VG,|
|00001a30| 58 20 14 08 05 0e 20 12 | 05 13 14 0f 12 05 13 20 |X .... .|....... |
|00001a40| 14 0f 20 0c 09 0e 05 20 | 58 2c 20 09 0e 13 14 05 |.. .... |X, .....|
|00001a50| 01 04 20 0f 06 20 14 0f | 20 14 08 05 20 02 05 07 |.. .. ..| ... ...|
|00001a60| 09 0e 0e 09 0e 07 20 0f | 06 20 14 08 05 20 10 12 |...... .|. ... ..|
|00001a70| 0f 07 12 01 0d 2e 20 1f | 1f 41 20 04 05 0d 0f 20 |...... .|.A .... |
|00001a80| 0f 06 20 09 14 13 20 15 | 13 05 20 06 0f 0c 0c 0f |.. ... .|.. .....|
|00001a90| 17 13 20 09 0e 20 0c 09 | 0e 05 13 20 31 30 30 2d |.. .. ..|... 100-|
|00001aa0| 31 34 30 2e 20 54 08 05 | 12 05 2c 20 09 14 20 12 |140. T..|.., .. .|
|00001ab0| 01 0e 04 0f 0d 0c 19 20 | 12 05 13 14 0f 12 05 13 |....... |........|
|00001ac0| 20 14 0f 20 01 0e 19 20 | 0c 09 0e 05 20 06 12 0f | .. ... |.... ...|
|00001ad0| 0d 20 35 32 30 2d 35 33 | 30 20 01 0e 04 20 10 12 |. 520-53|0 ... ..|
|00001ae0| 09 0e 14 13 20 0f 15 14 | 20 14 08 05 20 13 15 02 |.... ...| ... ...|
|00001af0| 13 05 11 15 05 0e 14 20 | 16 01 0c 15 05 13 20 12 |....... |...... .|
|00001b00| 05 01 04 2e 20 54 0f 20 | 15 13 05 20 14 08 05 20 |.... T. |... ... |
|00001b10| 03 01 0c 03 15 0c 01 14 | 05 04 20 52 45 53 54 4f |........|.. RESTO|
|00001b20| 52 45 20 19 0f 15 12 13 | 05 0c 06 2c 20 0a 15 13 |RE .....|..., ...|
|00001b30| 14 20 03 0f 10 19 20 0c | 09 0e 05 13 20 33 30 20 |. .... .|.... 30 |
|00001b40| 01 0e 04 20 35 30 20 09 | 0e 14 0f 20 19 0f 15 12 |... 50 .|... ....|
|00001b50| 20 0f 17 0e 20 10 12 0f | 07 12 01 0d 13 2e 1f 1f | ... ...|........|
|00001b60| 57 09 14 08 20 01 20 03 | 01 0c 03 15 0c 01 14 05 |W... . .|........|
|00001b70| 04 20 52 45 53 54 4f 52 | 45 2c 20 19 0f 15 20 04 |. RESTOR|E, ... .|
|00001b80| 0f 0e 27 14 20 08 01 16 | 05 20 14 0f 20 03 0f 10 |..'. ...|. .. ...|
|00001b90| 19 20 04 01 14 01 20 09 | 0e 14 0f 20 01 0e 20 01 |. .... .|... .. .|
|00001ba0| 12 12 01 19 20 14 0f 20 | 01 03 03 05 13 13 20 09 |.... .. |...... .|
|00001bb0| 14 20 12 01 0e 04 0f 0d | 0c 19 2e 20 53 09 0d 10 |. ......|... S...|
|00001bc0| 0c 19 20 10 0c 01 03 05 | 20 14 08 05 20 04 01 14 |.. .....| ... ...|
|00001bd0| 01 20 0f 0e 20 13 05 10 | 01 12 01 14 05 20 0c 09 |. .. ...|..... ..|
|00001be0| 0e 05 13 2c 20 17 09 14 | 08 20 05 16 05 0e 0c 19 |..., ...|. ......|
|00001bf0| 20 13 10 01 03 05 04 20 | 0c 09 0e 05 20 0e 15 0d | ...... |.... ...|
|00001c00| 02 05 12 13 2c 20 01 0e | 04 20 15 13 05 20 14 08 |...., ..|. ... ..|
|00001c10| 05 20 03 01 0c 03 15 0c | 01 14 05 04 20 52 45 53 |. ......|.... RES|
|00001c20| 54 4f 52 45 20 14 0f 20 | 03 01 0c 0c 20 14 08 05 |TORE .. |.... ...|
|00001c30| 0d 20 17 08 05 0e 20 19 | 0f 15 20 0e 05 05 04 20 |. .... .|.. .... |
|00001c40| 14 0f 2e 20 49 06 20 19 | 0f 15 20 08 01 16 05 20 |... I. .|.. .... |
|00001c50| 16 01 12 09 0f 15 13 20 | 02 0c 0f 03 0b 13 20 0f |....... |...... .|
|00001c60| 06 20 04 01 14 01 20 14 | 08 01 14 20 19 0f 15 20 |. .... .|... ... |
|00001c70| 0e 05 05 04 20 14 0f 20 | 12 05 06 05 12 20 14 0f |.... .. |..... ..|
|00001c80| 2c 20 14 08 09 13 20 12 | 0f 15 14 09 0e 05 20 0c |, .... .|...... .|
|00001c90| 05 14 13 20 19 0f 15 20 | 12 05 01 04 20 14 08 05 |... ... |.... ...|
|00001ca0| 0d 20 04 09 12 05 03 14 | 0c 19 2c 20 02 19 10 01 |. ......|.., ....|
|00001cb0| 13 13 09 0e 07 20 01 0c | 0c 20 14 08 05 20 0f 14 |..... ..|. ... ..|
|00001cc0| 08 05 12 13 2e 1f 1f 46 | 0f 12 20 01 20 08 01 10 |.......F|.. . ...|
|00001cd0| 10 19 20 15 0e 09 0f 0e | 20 02 05 14 17 05 05 0e |.. .....| .......|
|00001ce0| 20 42 41 53 49 43 20 01 | 0e 04 20 0d 01 03 08 09 | BASIC .|.. .....|
|00001cf0| 0e 05 20 0c 01 0e 07 15 | 01 07 05 2c 20 13 0f 0d |.. .....|..., ...|
|00001d00| 05 20 07 15 09 04 05 0c | 09 0e 05 13 20 08 01 16 |. ......|.... ...|
|00001d10| 05 20 14 0f 20 02 05 20 | 06 0f 0c 0c 0f 17 05 04 |. .. .. |........|
|00001d20| 2e 20 54 08 05 20 0d 01 | 03 08 09 0e 05 20 0c 01 |. T.. ..|..... ..|
|00001d30| 0e 07 15 01 07 05 20 08 | 01 13 20 14 0f 20 02 05 |...... .|.. .. ..|
|00001d40| 20 12 05 0c 0f 03 01 14 | 01 02 0c 05 2c 20 01 0e | .......|...., ..|
|00001d50| 04 20 0f 0e 0c 19 20 03 | 05 12 14 01 09 0e 20 03 |. .... .|...... .|
|00001d60| 0f 04 05 13 20 03 01 0e | 20 02 05 20 10 0c 01 03 |.... ...| .. ....|
|00001d70| 05 04 20 09 0e 20 01 20 | 13 14 12 09 0e 07 2e 20 |.. .. . |....... |
|00001d80| 54 08 05 20 11 15 0f 14 | 05 20 13 19 0d 02 0f 0c |T.. ....|. ......|
|00001d90| 20 28 03 0f 04 05 20 33 | 34 29 20 01 0e 04 20 42 | (.... 3|4) ... B|
|00001da0| 41 53 49 43 27 13 20 05 | 0e 04 2d 0f 06 2d 0c 09 |ASIC'. .|..-..-..|
|00001db0| 0e 05 20 0d 01 12 0b 05 | 12 20 28 03 0f 04 05 20 |.. .....|. (.... |
|00001dc0| 30 29 20 01 12 05 20 04 | 05 06 09 0e 09 14 05 20 |0) ... .|....... |
|00001dd0| 0e 0f 2d 0e 0f 13 2e 20 | 41 16 0f 09 04 09 0e 07 |..-.... |A.......|
|00001de0| 20 14 08 05 13 05 20 01 | 0e 04 20 0f 14 08 05 12 | ..... .|.. .....|
|00001df0| 13 20 03 01 0e 20 0d 01 | 0b 05 20 14 08 05 20 03 |. ... ..|.. ... .|
|00001e00| 0f 04 05 20 14 17 09 03 | 05 20 01 13 20 0c 0f 0e |... ....|. .. ...|
|00001e10| 07 2c 20 01 13 20 09 14 | 20 04 09 04 20 09 0e 20 |., .. ..| ... .. |
|00001e20| 14 08 09 13 20 03 01 13 | 05 2e 20 1f 1f 41 0c 13 |.... ...|.. ..A..|
|00001e30| 0f 2c 20 17 08 05 0e 20 | 13 14 12 09 0e 07 13 20 |., .... |....... |
|00001e40| 01 12 05 20 15 13 05 04 | 20 09 0e 20 03 01 0c 03 |... ....| .. ....|
|00001e50| 15 0c 01 14 09 0f 0e 13 | 20 28 15 0e 0c 09 0b 05 |........| (......|
|00001e60| 20 0c 09 0e 05 20 33 30 | 20 01 02 0f 16 05 2c 20 | .... 30| ....., |
|00001e70| 17 08 09 03 08 20 09 13 | 20 0a 15 13 14 20 01 0e |..... ..| .... ..|
|00001e80| 20 01 13 13 09 07 0e 0d | 05 0e 14 29 2c 20 13 14 | .......|...), ..|
|00001e90| 12 09 0e 07 13 20 01 12 | 05 20 0d 0f 16 05 04 20 |..... ..|. ..... |
|00001ea0| 09 0e 14 0f 20 13 14 12 | 09 0e 07 20 0d 05 0d 0f |.... ...|... ....|
|00001eb0| 12 19 2c 20 01 02 0f 16 | 05 20 14 08 05 20 42 41 |.., ....|. ... BA|
|00001ec0| 53 49 43 20 10 12 0f 07 | 12 01 0d 2e 20 4f 0e 03 |SIC ....|.... O..|
|00001ed0| 05 20 14 08 05 12 05 2c | 20 14 08 05 19 20 03 01 |. .....,| .... ..|
|00001ee0| 0e 20 02 05 20 0d 0f 16 | 05 04 20 01 12 0f 15 0e |. .. ...|.. .....|
|00001ef0| 04 20 17 09 14 08 0f 15 | 14 20 17 01 12 0e 09 0e |. ......|. ......|
|00001f00| 07 2c 20 0d 01 0b 09 0e | 07 20 14 08 05 20 03 01 |., .....|. ... ..|
|00001f10| 0c 0c 09 0e 07 20 0f 06 | 20 03 0f 04 05 20 09 0e |..... ..| .... ..|
|00001f20| 20 14 08 05 0d 20 0d 15 | 03 08 20 0d 0f 12 05 20 | .... ..|.. .... |
|00001f30| 04 09 06 06 09 03 15 0c | 14 2e 20 41 17 0b 17 01 |........|.. A....|
|00001f40| 12 04 2c 20 19 05 13 3b | 20 02 15 14 20 06 0f 12 |.., ...;| ... ...|
|00001f50| 20 13 08 05 05 12 20 0e | 0f 16 05 0c 14 19 2c 20 | ..... .|......, |
|00001f60| 09 14 27 13 20 08 01 12 | 04 20 14 0f 20 02 05 01 |..'. ...|. .. ...|
|00001f70| 14 2e 1f 1f 4c 0f 0f 0b | 20 0f 0e 20 14 08 05 20 |....L...| .. ... |
|00001f80| 06 0c 09 10 20 13 09 04 | 05 20 0f 06 20 14 08 09 |.... ...|. .. ...|
|00001f90| 13 20 04 09 13 0b 20 06 | 0f 12 20 01 0c 0c 20 0f |. .... .|.. ... .|
|00001fa0| 06 20 14 08 05 20 10 12 | 0f 07 12 01 0d 13 20 04 |. ... ..|...... .|
|00001fb0| 09 13 03 15 13 13 05 04 | 20 08 05 12 05 2e 20 54 |........| ..... T|
|00001fc0| 08 05 19 20 01 12 05 20 | 52 15 0e 20 52 05 01 04 |... ... |R.. R...|
|00001fd0| 2c 20 44 01 14 01 20 43 | 0f 0e 16 05 12 14 0f 12 |, D... C|........|
|00001fe0| 2c 20 43 01 0c 03 20 52 | 05 13 14 0f 12 05 2c 20 |, C... R|......, |
|00001ff0| 43 0f 10 19 20 42 05 08 | 09 0e 04 2e 20 43 01 0c |C... B..|.... C..|
|00002000| 03 20 52 05 13 14 0f 12 | 05 20 09 13 20 14 08 05 |. R.....|. .. ...|
|00002010| 20 10 12 0f 07 12 01 0d | 20 14 08 01 14 20 0c 0f | .......| .... ..|
|00002020| 01 04 13 20 06 12 0f 0d | 20 14 08 05 20 43 0f 0c |... ....| ... C..|
|00002030| 15 0d 0e 20 0d 05 0e 15 | 2e 1f 1f 49 06 20 19 0f |... ....|...I. ..|
|00002040| 15 20 08 01 16 05 20 01 | 20 10 12 0f 07 12 01 0d |. .... .| .......|
|00002050| 0d 09 0e 07 20 08 09 0e | 14 20 0f 12 20 14 09 10 |.... ...|. .. ...|
|00002060| 20 14 08 01 14 20 0d 09 | 07 08 14 20 09 0e 14 05 | .... ..|... ....|
|00002070| 12 05 13 14 20 0f 14 08 | 05 12 20 36 34 2f 31 32 |.... ...|.. 64/12|
|00002080| 38 20 10 12 0f 07 12 01 | 0d 0d 05 12 13 2c 20 13 |8 ......|....., .|
|00002090| 05 0e 04 20 09 14 20 14 | 0f 20 14 08 05 20 06 0f |... .. .|. ... ..|
|000020a0| 0c 0c 0f 17 09 0e 07 20 | 01 04 04 12 05 13 13 2e |....... |........|
|000020b0| 1f 1f 47 01 1a 05 14 14 | 05 20 50 12 0f 07 12 01 |..G.....|. P.....|
|000020c0| 0d 0d 05 12 27 13 20 50 | 01 07 05 1f 43 4f 4d 50 |....'. P|....COMP|
|000020d0| 55 54 45 20 50 15 02 0c | 09 03 01 14 09 0f 0e 13 |UTE P...|........|
|000020e0| 1f 33 32 34 20 57 2e 20 | 57 05 0e 04 0f 16 05 12 |.324 W. |W.......|
|000020f0| 20 41 16 05 2e 2c 20 53 | 14 05 2e 20 32 30 30 1f | A..., S|... 200.|
|00002100| 47 12 05 05 0e 13 02 0f | 12 0f 2c 20 4e 43 20 32 |G.......|.., NC 2|
|00002110| 37 34 30 38 1f 1f 57 05 | 20 10 01 19 20 24 32 35 |7408..W.| ... $25|
|00002120| 2d 24 35 30 20 06 0f 12 | 20 05 01 03 08 20 14 09 |-$50 ...| .... ..|
|00002130| 10 20 14 08 01 14 20 17 | 05 20 10 15 02 0c 09 13 |. .... .|. ......|
|00002140| 08 2e 1f 1f 1f 47 01 1a | 05 14 14 05 2c 20 4a 15 |.....G..|...., J.|
|00002150| 0c 19 20 31 39 39 34 1f | 1f 1f 1f                |.. 1994.|...     |
+--------+-------------------------+-------------------------+--------+--------+